ggplot() +
tidyterra::geom_spatraster_rgb(data = saltinho_raster) +
geom_sf(data = saltinho_poligono, fill = "transparent", color = "red", linewidth = 2) +
geom_sf(data = grade, color = "yellow") +
geom_sf(data = trilhas, color = "blue", linewidth = 1.5) +
geom_sf(data = coord, aes(fill = `Parcela Ripária`), size = 5, shape = 21, color = "black") +
scale_y_continuous(expand = c(0, 0)) +
scale_x_continuous(expand = c(0, 0)) +
scale_fill_manual(values = c("gold", "cyan4")) +
guides(fill = guide_legend(title.position = "top",
title.hjust = 0.5)) +
theme_bw() +
theme(axis.text = element_text(color = "black", size = 15),
legend.text = element_text(color = "black", size = 15),
legend.title = element_text(color = "black", size = 15),
legend.position = "bottom")